Ciclos anidados (Do While [For j ... Next j] Loop) que no funcionan
Val_d_Homero
25 de Noviembre del 2008
Tengo un ciclo de "conceptos de gasto" que recorre una tabla y otro con "importes de gastos" que recorre otra tabla. El primero con Do While y el interior con For j .... El problema que tengo es que no me coge el primer apunte de la tabla "importes de gastos". El código que tengo hecho es:
.........Ciclo exterior-----
Do While noe Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'
.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
If Adodc1.Rs.EOF Then
Adodc1.Rs.MoveLast
Else
Adodc1.Rs.MoveNext
End If
importex = importex + importa
Next j
Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué hay mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y
no consigo arreglarlo. Muchas gracias.
.........Ciclo exterior-----
Do While noe Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'
.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
If Adodc1.Rs.EOF Then
Adodc1.Rs.MoveLast
Else
Adodc1.Rs.MoveNext
End If
importex = importex + importa
Next j
Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué hay mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y
no consigo arreglarlo. Muchas gracias.
vallekano
25 de Noviembre del 2008
Do While noe ??
yo kreo kes asÃ
Do While yosué
yo kreo kes asÃ
Do While yosué
Val_d_Homero
25 de Noviembre del 2008
Lo he modificado de la forma siguiente, pero tampoco funciona.Tengo un ciclo de "conceptos de gasto" que recorre una tabla y otro con "importes de gastos" que recorre otra tabla. El primero con Do While y el interior con For j .... El problema que tengo es que no me coge el primer apunte de la tabla "importes de gastos". El código que tengo hecho es:
.........Ciclo exterior-----
Do While NOT Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'
.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
importex = importex + importa
Adodc1.Rs.MoveNext
Next j
Print concepto
Print importex
Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué está mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y no consigo arreglarlo. Muchas gracias.
.........Ciclo exterior-----
Do While NOT Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'
.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
importex = importex + importa
Adodc1.Rs.MoveNext
Next j
Print concepto
Print importex
Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué está mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y no consigo arreglarlo. Muchas gracias.
vallekano
25 de Noviembre del 2008
Perdona k te diga majete, k eres un chapuzas programando.
Eso se puede hacer con una simple consulta de unión interna.
Eso se puede hacer con una simple consulta de unión interna.
Val_d_Homero
25 de Noviembre del 2008
Evidentemente lo quiero solucionar sin SQL.
vallekano
25 de Noviembre del 2008
pues nada chavalote, sigue por ay
yo tambien conoci a uno k quiso ir de madrid a cadiz pero pasando por china
Evidentemente no lo consiguio pues en las estepas siberianas se topo con una manada de osos ambrientos y les hizo frente. imaginate lo que se parecia a ti.
bueno, pardillo que tengas suerte
yo tambien conoci a uno k quiso ir de madrid a cadiz pero pasando por china
Evidentemente no lo consiguio pues en las estepas siberianas se topo con una manada de osos ambrientos y les hizo frente. imaginate lo que se parecia a ti.
bueno, pardillo que tengas suerte
Val_d_Homero
25 de Noviembre del 2008
Lo primero que deberÃas hacer es aprender a escribir, que metes una falta de ortografÃa por cada dos palabras. Se ve que pasaste de largo por la escuela. PodrÃas ir a la escuela, pero a la primaria, ¿eh?
Val_d_Homero
25 de Noviembre del 2008
Si no sabes escribir, no es de extrañar que creas que en la estepa siberiana haya osos. No los hay. Son un animal carnÃvoro y en las estepas hay hierba pero poca carne. Los osos se alimentan principalmente de focas y en la estepa últimamente hay pocas.
vallekano
25 de Noviembre del 2008
Los osos se alimentan de focas?
Los del pirineo y los pandas también?
Anda el palurdo este, que ahora nos sale intelectual!
dedÃcate a aprender programación y deja a los osos en su sitio
Los del pirineo y los pandas también?
Anda el palurdo este, que ahora nos sale intelectual!
dedÃcate a aprender programación y deja a los osos en su sitio